gsiz=16;ik=0xFF0000
function INT(a)
  return(a-a%1)
  end
r=(INT(ik/65536))%256
g=(INT(ik/256))%256
b=ik%256
for y=0,height-1,gsiz do
  for x=0,width-1,1 do
    set_rgb(x,y+(x/2)%gsiz,r/255,g/255,b/255)
    end;end
for y=0,height-1,gsiz do
  for x=0,width-1,1 do
    set_rgb(x+((gsiz/2)-1),y+(gsiz-1)-((x/2)%gsiz),r/255,g/255,b/255)
    end;end --;end

